﻿Public Class Form1
    Inherits System.Windows.Forms.Form
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu

#Region " Código generado por el Diseñador de Windows Forms "

    Public Sub New()
        MyBase.New()

        'Llamada necesaria para el Diseñador de Windows Forms.
        InitializeComponent()

        'Agregue cualquier inicialización después de la llamada a InitializeComponent()

    End Sub

    'Form reemplaza a Dispose para limpiar la lista de componentes.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        MyBase.Dispose(disposing)
    End Sub

    'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
    'Se puede modificar usando el Diseñador de Windows Forms.  
    'No lo modifique con el editor de código.
    Private Sub InitializeComponent()
        Me.MainMenu1 = New System.Windows.Forms.MainMenu
        '
        'Form1
        '
        Me.ClientSize = New System.Drawing.Size(176, 180)
        Me.Menu = Me.MainMenu1
        Me.Text = "Form1"

    End Sub

#End Region

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If (e.KeyCode = System.Windows.Forms.Keys.F1) Then
            'Tecla programable 1
            'Sin controlar cuando el menú está presente.
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.F2) Then
            'Tecla programable 2
            'Sin controlar cuando el menú está presente.
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.Up) Then
            'Subir
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.Down) Then
            'Bajar
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.Left) Then
            'Izquierda
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.Right) Then
            'Derecha
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.Enter) Then
            'Entrar
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.D1) Then
            '1
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.D2) Then
            '2
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.D3) Then
            '3
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.D4) Then
            '4
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.D5) Then
            '5
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.D6) Then
            '6
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.D7) Then
            '7
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.D8) Then
            '8
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.D9) Then
            '9
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.F8) Then
            '*
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.D0) Then
            '0
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.F9) Then
            '#
        End If

    End Sub
End Class
